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BUMPAS REVIEWS 


Our recent local user group meeting was spectacular enough to 
deserve comment here. The impressive thing was all the new activity 
around the Atari 130XE and the entire 8-bit line of Atari computers. 

One company demonstrated a voice recognition system which had 
een developed on the C-64. But the extra memory in the Atari 130XE 
makes this system work much more efficiently. It's very impressive to 
see someone speak "red” into a microphone and have the Atari display 
the color red on the screen. 

Kirt Stockwell demonstrated his company's new product, Mindlink, 
a high-powered BBS. Ralph Walden demonstrated his new product, an 
implementation of the C language with linker and editor. He told us a 
"benchmark" test he ran was faster on his compiled C for the 8-bit Ataris 
than with DRI's C language for the STs, and faster than a C language 
he tested on an IBM PC! The $35 he asks for the disk seems very 
reasonable. 

Another product. Upgrade, installs another 64k into your Atari 
130XE to give you a total of 192k of memory! The software they provide 
permits dynamic assignment of the ramdisk to any drive from 1 to 3. 
They also had an old Atari 800 with memory expanded up to 256k! 
Imagine. An 8-bit Atari with twice the memory of a Macintosh and 
memory equal to the (perhaps soon to appear) C-Amiga! 

The ST sort of took a back seat at this meeting. A HEX game was 
shown, as well as a demo disk of a game called SUNDOG. 

STuff 

(This will be the section for ST-related material in ACE) 

I've been appointed "ST Librarian" for the ACE, and I already have 
three disks of demo programs, as well as some demo programs 
(advertisements) of some commercial programs available. If you specify 
color or monochrome. I'll mail you a disk for $15. 

HOW I MADE AN IBM-ST 
(An ST with 5.25" Disk Drive) 

By David Small, Antic Publishing Inc., Copyright 1985. 

Reprinted by Permission. 

You can read and write IBM PC disks on your Atari ST if you connect 
a 40 track 5.25" disk drive to your 3.5" disk drive . . . You cannot use 
the disk drive from your 8-bit Atari . . . unless it is an ATR or Percom 
drive. . .. They are "industry standard" drives which communicate via 
standard 34-pin connectors. 

Warning: Before specifying how to hook up a 5.25" drive to your 
ST, we must caution you this is no job for electronics beginners. You need 
to understand and modify the circuitry of whatever 5.25" you are using. 
Debugging your new system can be a frustrating experience. Not only 
+ hat, when you open your ST drive you'll void the warranty. 

Ribbons & Pins: Of the 34 pins in the standard industry connector, 
only about 14 are used. The Atari ST brings these 14 wires out in a short, 
thick cable which plugs from the ST into the first drive's IN connector. 
This cable uses a non-standard 14-pin DIN connector, but it carries 
industry standard signals. Our goal is to get these signals to a standard 
34-pin connector. Theoretically we could put a 34-pin edge connector 
on one end of a ribbon cable and a 14-pin DIN connector on the other 
and we have our disk drive cable. However, in practice I can find a 14-pin 
DIN connector. 

Kinky Wiring: There's another catch. Atari does something kinky 
with the drive B select signal. It's on pin 6 of the DIN connector when 
coming from the ST. But inside drive A it's switched from IN connector 
pin 6 to OUT connector pin 5 where it becomes drive select for drive 
B. This means Atari ST drives always listen on pin 5 for select, and the 
daisy chain scheme gives the proper drive the correct signal. Thus the 
two connectors on the back of the ST drive are not interchangeable, like 
other Atari drives. Plug your ST into the OUT connector and the drive 
won't work. 

Inside the Drive:: The method I choose to use is to tap into the 
signals inside the 3.5" ST drive. Besides voiding your warranty, this will 
probably require you to cut a slot in the drive case for the new ribbon 
cable. If you open up the drive (use a phillips screwdriver) you'll find the 
14-pin DIN connector expands to (surprise!) an industry standard 34-pin 
ribbon cable. Of course, it does this inside the shield to prevent radio 
noise from leaking out. A small circuit board has the two 14-pin 
connectors (IN and OUT) mounted on it, and it connects to the 34-pin 
ribbon cahie inside the drive. I put a "tap" from the 34-pin ribbon cable 
in the drive to the 34-pin ribbon cable running to my remote 5.25" drive. 
I then use a DB-40, 40-pin male and female clamp-on connector to clamp 
one side to the ribbon cable and the other to the remote drive's cable. 
Then I plug the two DB-40s together. You don't have to use a DB-40. 
Any clamp-on connector which covers the first 34 pins will work fine. 

Pin Swapping: But we're not done yet! We have to jump from pin 
6 of the dIN connect (drive B select) to pin 12 of the ribbon cable (drive 
B select) to get this signal across. Otherwise it doesn't show up on the 
34-pin cable. This is easy to do on the bottom of the 3.5" drive's DIN 
connect board. 


Drive B Configuration: Almost done. Now we need to set the 
remote drive as drive B. Sometimes it's called drive 1 or drive 2, 
depending on whether the manufacturer numbers drives at 0 or 1. When 
a drive is idle, a five-volt signal (HIGH) exists on the BUSY line. When 
the computer wants to access the drive, it pulls down this signal to zero 
(LOW). When the computer is finished with the drive, it releases the signal 
and the drive "pulls up" the signal to its original five volts. If two drives 
are hooked up, only one may contain pull up circuitry because the 
computer can only pull down five volts. Pull-up circuitry usually is 
contained in a chip in the drive. And now you are at a point where you 
must know enough about your 5.25" drive to figure out where the chip 
is. Since the ST drive A contains all the pull-up termination circuitry we 
need we must remove termination packs from the remote drive. In the 
cast of my Tandon TM-100-2 drive I also need to deal with the select 
line termination, since it doesn't go through the resistor pack. I have to 
clip resistor R14 from my Tandon to get rid of the added termination. 
Special Note: The ST monitor throws out a lot of magnetism. If you don't 
keep your drive at least one foot from the monitor, the disk's heads will 
pick up the monitor's signals and confuse the read data. You'll 
immediately notice data error if you get your drive close to the monitor. 
This is good reason to use a fairly long ribbon cable (3 feet or so) [we 
haven't noticed this problem in-house — ANTIC ED]. ALL DONE! 

IBM ST: . . . With an IBM PC disk in that 40 track drive, . . . click 
on the B icon. It'll pull up the disk's directory into folders and "text only" 
files. You'll notice on the top of the window a PC-DOS type of 
"pathname" consisting of multiple (if needed) folders and a filename. 
GEM simply turns the concept of pathnames into folder icons and moves 
you through the path by your actions of selecting, opening, or closing 
a folder. Of course, you can't run IBM programs because they are written 
in languages which the ST cannot understand. However, you can freely 
copy and use text files and the data within them. Furthermore, if you 
write back out from the ST to the PC disk, you'll find an IBM has no 
trouble reading what you wrote. 

ATARI - ATT&T DEAL? 

The headline of the lead business story in the Sept. 9, 1985 issue 
of the San Jose Mercury reports that Atari and AT&T are "hammering 
out a sales deal." AT&T will reportedly be selling Atari ST computers in 
their phone stores. The Mercury credits the story as originating in the 
Washington Post. This report said an agreement is under negotiation 
which will give Atari a major customer for the ST while giving American 
Telephone & Telegraph a low-cost entry into the home and small business 
personal computer market. The ST would be a natural fit into AT&T's 
upscale consumer phone marketing pipeline. 

Naturally, both Atari and AT&T responded with a big "No Comment" 
when asked to confirm that negotiations were going on. But that's 
standard operating procedure at this stage of the game. 

ANTIC PUBLISHING INC., COPYRIGHT 1985. REPRINTED BY 
PERMISSION. 

TRAMIEL GOES FOR BLOOD IN ATARI "RIP-OFF" AD 

"9/4—According to the latest Adweek, an advertising trade 
magazine, the next Atari ad takes dead aim at the Mac, the C-Amiga and 
the IBM PCAT. 

"The first ad from Atari's latest agency shows the rival computers 
and their suggested list prices. A big headline shouts, "THERE'S ONLY 
ONE WORD FOR THESE PRICES: RIP-OFF." 

"Not exactly the old Atari's Alan Alda warm sell. The ad is to debut 
in Rolling Stone 9/26 as the latest proof that Jack Tramiel is no shrinking 
violet." 

I really hope such an ad campaign does not go far. I think the prices 
speak for themselves. We don't need to hear about those other 
computers in Atari ads. Let's hear about what the Atari ST can do that 
the others can't. 


V 
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ERACE 


S/T Applications, 10760 Hwy 116, Forestville, CA 95436 is a 
monthly magazine devoted to the Atari ST. Its first issue is 20 pages 
and subscriptions are $25 for 6 issues or $50 for 6 issues on disk. The 
first issue contains a couple of reviews and lists some software coming 
out for the ST. It also contains some information about the OS. 

The editor admits to no experience in producing a magazine, and this 
first issue is rather poorly photocopied. There is no advertizing, so the 
pages are full of content - which is sure to become more meaty as time 
goes on. I hope his reproduction improves quickly 

One of the more interesting items in this first issue appears on page 
4 as a "Reader Comment": 

"For those of you who didn't see Computer Current's Aug 27-Sep 
9 issue: On page 43 they tell how some insider at Atari sneaked these 
four icons in among the control characters as a joke. They make a picture 
of J.R. Bob Dobbs of the Church of the Sub-Genius. He is the invention 
of art students who wanted to create a bogus religion based on flying 
saucers, lunatic conspiracy theories and the occult. One of his sayings 
is "F - 'em if they can't take a joke." 

If you check pages 63 and 65 of your sourcebook for Atari (ST) 
LOGO, you'll see these icons as chars 28 through 31, if you look carefully. 
They re just to the right and above the two which make the Atari symbol. 

"Study the following listing to see the difference between print and 
type. 

TO BOB 

REPEAT 35 [TYPE CHAR 28 TYPE CHAR 29. PR "REPEAT 35 [TYPE 
CHAR 30 TYPE CHAR 31] PR "PR [F - 'EM IF THEY CAN'T TAKE A JOKE ] 
END 

You can also print out the Atari logo with this short routine: 

TO ATARI 

REPEAT 25 [TYPE CHAR 14 TYPE CHAR 15 TYPE CHAR 32] 

END 

Lois Hansen 
Oakland, CA 


SynCalc Templates 

(Synapse, 17 Paul Dr., San Rafael, Ca. 94903.) 

The SynCalc Templates are designed to be used with SynCalc. They 
are 22 of the most commonly used spreadsheet formats. One might have 
to spend hours just setting up one of these. They cover everything from 
LINEAR REGRESSION CALCULATIONS, BOND PORTFOLIO 
EVALUATIONS, to COST ANALYSIS OF PAINTING A ROOM, and 
KITCHEN MEASUREMENT CONVERSION TABLES. There is something 
for everyone who uses a computer. 

Not only did Synapse cover the gamut in the different types of 
templates which can be used, but they made them simple to use. The 
instructions fit into the notebook coming with SynCalc. They just make 
up another section to refer to very easily. Apart from the fact that the 
instructions are easy to use and read they cover everything. 

First off they start by telling you how to load the program once you 
have loaded SynCalc. Then they give you an instruction sheet for each 
template, even the index not only gives the name of the template but 
tells what it does. 

If you use SynCalc then you need this program as even if the 
templates don't cover what you want they are easy to convert to what 
you do need. 

There is one function of this program which I have not used as yet 
and that is the increased memory which can be used if you have such 
a thing. 

This is a well thought out program which is a useful addition to the 
Synapse series. If they add a word processor to this series one could 
just buy the series and do about everything one might want with a 
computer. I hope they keep up the good work and bring out more of this 
type of program to update and enhance their other programs. This is 
the type of software which will make the computer a more useful tool 
for all to use. 

- LARRY GOLD 


WALLY'S WORD WORKS 

($65, Sunburst Communications, Elementary disk (grade levels: 4-6) 

This package adds the elements of whimsy delight and challenge 
to the practice of basic language skills. Identifying parts of speech is 
central to the study of sentences. 

Wally is a wallaby (a small kangaroo). The player plays by directing 
Wally over the sentence and picks up words with the arrow key/joystick. 
Then he drops that word into the correct pocket (i.e.; noun, verb, 
preposition, etc.). The player also get bonus points for evading the speedy 
Rovers who are little creatures who chase Wally when he has not picked 
up a word. 

The main menu has 9 categories- Play, demo, Definitions, 
Instructions, etc. 

The package can be tailored to fit the student's needs. It is a neat 
way to teach the parts of the sentence in a fun way. Available are two 
more disks in this series: Pocket Pitfalls and Rovers' Revenge for more 
advanced studies. 

As usual, Sunburst sends a bright orange notebook to hold the 
manual and disks. The instructions are simple to use with ideas. 

— Nora Young 

FAREWELL 

The Ness' have been "unsung heroes" of ACE for a long time. They 
have spent many hours keeping our program library operating for several 
years. We all regret their moving on, and wish them the best of luck. 
The new Program Library chairpeople are Chuck and Jody Ross, 2222 
Ironwood, Eugene, OR 97401 . Thanks again, Ron and Aaron! 

— M. Dunn, Co-Editor 

SO LONG, FAREWELL, & THANKS 

After a year of trying to start a new career, I have decided to return 
to the airline industry and will be moving (my body only) to Memphis, 
Tennessee. My heart and home will always be here in Eugene and I will 
be commuting between the two as often as possible (but not often 
enough to take care of the library). Aaron will be starting college at 
Oregon State this fall majoring in the sciences, and will also be unable 
to care for the library. 

Since they have had two years of rest, the duties of the library will 
be returned to the capable hands of Chuck and Jody Ross. We will 
certainly miss the early morning phone calls from overseas, the pile of 
mail arriving daily, and the most able assistance of our postal service 
in properly folding the disks we receive. 

The mail we have received from nearly every corner of the world has 
made this a most enjoyable task. We are proud to have been involved 
in the rapid growth of the library, from 17 disks in 1983 to nearly 70 
now. However, this could not have been possible without the vast support 
we have received from our many readers. We have made many friends 
both for the library and ourselves and we hope to continue to hear from 
you. 

Thanks to the many contributors and correspondents such as Stan 
Ockers in Illinois, Paul Freeman in Maryland, Ed Slawson in Maine, Wayne 
Real in Australia, and Les Ellingham in England. The trouble is that if we 
mention a few, we will omit many others so we will just say THANKS 
TO ALL OF YOU. 

Locally, thanks are due to John Kelley in Portland for his many fine 
contributions, his warmth, friendship and hospitality. In Eugene, we have 
to say thank you to Mike Dunn, Larry Gold, Jim and Linda Bumpas, Chuck 
and Jody Ross, Kirt Stockwell, Dick Barkley, E.J. Knoll, Bob Browning, 
Bruce Ebling, Ruth Ellsworth, Don Marr and his staff at Computer Palace 
and to Stacy Goff (wherever you are)! We want all of you to know we 
truly appreciate your assistance. There are many more names which 
should be included, but space precludes listing them here. Your support 
and friendship will always remain dear to us. 

We want to say thanks to all of you who started your letters with, 
"Dear Mr. & Mrs. Ness...", as father and son, we found this quite 
humorous. 

A very special thank you to Carole Ness, wife and mother, for her 
understanding and patience beyond reasonable limits, while we had 
computer equipment and library materials scattered throughout the 
house. Also we want to apologize for occasionally making disks instead 
of keeping the lawn mowed or the garage cleaned. 

Again, our thanks and best wishes to all of you. 

— Ron and Aaron Ness 
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SORTING ROUTINES 

IN BASIC AND ACTION 

Sorting data is an excellent example of something which should be 
done by a computer and not done by hand. Sorting routines vary widely 
in complexity and speed of execution. This article discusses several 
sorting algorithms in both BASIC and ACTION. The actual execution 
times and source code are given for each algorithm. 

OVERVIEW 

There are six program listings at the end of this article. Here is a short 
description of each: 

(1) NUM1000.BAS - Creates a test file of 1000 random numbers 

(2) NUM1000.ACT - Same as (1), written in ACTION 

(3) SORTNUM.BAS - BASIC Bubble and Heap sorts program for 
numbers 

(4) SORTNUM.ACT - Same as (3), written in ACTION 

(5) SORTSTR.BAS - BASIC Bubble and Heap sorts program for strings 

(6) QUICKSRT.ACT- Uses procedure from ACTION Toolkit to sort 
numbers 

If you compare the code, you can see that precisely the same 
algorithms were used for both Listings 3 and 4. A LISTed version of the 
BASIC program in Listing 3 was used to create the ACTION program in 
Listing 4. This was made easier by the fact that Listing 3 consisted of 
several sets of subroutines. The hardest part of the conversion was 
unraveling the spaghetti code between lines 680 and 730 of Listing 3. 
Some print statements were eliminated in the ACTION versions, since 
they run very fast. 

RESULTS 

The following table shows the number of seconds required to sort 
sets of numeric items. The input file contained random numbers between 
1 and 1000, which were produced by the program in Listing 1. The 
following results are for the sort programs in Listings 3, 4, and 6. 

Items 100 999 
BASIC 

Bubble Sort 115 13,513 
Heap Sort 31 471 
Machine Language 

Bubble Sort 1.60 173 
ACTION! 

Bubble Sort 1.25 128 
Heap Sort .50 7.0 
Quick Sort .50 6.0 

The following table is similar to the prior table, except that The input 
file contained sorted numbers between 1 and 1000: 

Items 100 999 
BASIC 

Bubble Sort 1.5 5 
Heap Sort 32 493 
Machine Language 

Bubble Sort 11/60 20/60 
ACTION! 

Bubble Sort 1/60 11/60 
Heap Sort .50 7.3 
Quick Sort .50 37 

As shown above, the Bubble sort is very fast if the data is sorted, 
while the Quick sort is much slower! The Heap sort is not sensitive to 
whether the data is sorted or not. 

No table was prepared for the sort routines in Listing 4. These 
routines are similar to those in Listing 3, but they have been modified 
to sort string variables. The sorting times bear similar relationships to 
those shown above for the Bubble and Heap sorts. The file DURSYS was 
used as a source of string data that would be constant. 
DISCUSSION OF SORTING ALGORITHMS 

The programs in Listings 1 and 2 create a test file that can be used 
by the other programs. This same data was used by each sort routine. 
Otherwise, some extraneous differences in execution time could result 
due to non-random numbers! 

Bubble Sort - BASIC: this is the simplest of all sort routines. 
Unfortunately, it is also the slowest, and the most inefficient. An increase 
in the number of elements by a factor of 10 increases the sort time by 
a factor of 117! The BASIC version of the bubble sort is shown in lines 
500 to 600 of Listings 3 and 5. 

Bubble Sort - Machine language: This is approximately 75 times 
faster Lhan the BASIC version. This routine is from the March 1982 issue 
of Compute! magazine. It is the only published machine language sort 
for the ATARI I know of which actually works. This routine is contained 
in the DATA statements from line 6160 to 6330, and the setup is shown 
in lines 400 to 500 of Listings 3 and 5. The machine language version 
is quite fast, but it suffers from the same inefficiency as the BASIC 
version. 


RICHARD GROSZKIEWICZ 
SOFTWARE POLISH 

The method for calling the machine language bubble sort is clear 
when sorting strings, as shown in Listing 5. It is trickier when used to 
sort real numbers, as shown in Listing 4. This is because each real 
number is stored in six bytes of memory in ATARI BASIC. This is why 
the record length is declared as six in line 440. 

The machine language sort routine must be given the address of the 
array to be sorted. It is not possible to directly obtain the address of a 
real variable in ATARI BASIC. Instead, the string variable NUM$(4) is 
defined in line 1100 directly preceding the array S(999). The address of 
S(999) is equal to ADR(NUM$) + 4, since four bytes are allocated to the 
string NUM$. 

C -.e last problem is that all arrays are allocated storage starting at 
the zeroth element. Since the first array element to be sorted is stored 
in S(1) instead of S(0), we must define the starting address to pass to 
the machine language sort as ADR(NUM$) + 4 + 6. 

Bubble Sort - ACTION: This version of the bubble sort is 100 times 
faster then the BASIC version. This is faster then the machine language 
version of the bubble sort! The reason is ACTION stores the sort items 
as two byte integers instead of six bytes in memory. The machine 
language sort actually has to do three times as much work as a result. 

Heap Sort - BASIC: This algorithm is slightly more complicated than 
the bubble sort. It came from the April 1984 issue of PC TECH 
JOURNAL (which contains numerous other routines). The idea of this 
routine is to pass through the data twice. It builds a "heap” the first time 
through. This is fairly fast for BASIC, and it is more efficient than the 
bubble sort. The heap sort starts out four times faster than the bubble 
sort, and ends up 30 times faster. 

Heap Sort - ACTION: This version of the heap sort is roughly 70 
times faster than the BASIC version. This is a typical result of the type 
of speed improvement you can get by programming in ACTION!. 

Quick Sort - ACTION: The actual algorithm for the quick sort is 
not shown in Listing 6. I cheated and used the version contained in the 
ACTION! Toolkit, and INCLUDEd it in my source code. There is a listing 
of the quick sort in Microsoft BASIC in the April 1984 issue of PC TECH 
JOURNAL!. 

The quick sort is generally accepted as the most efficient sorting 
algorithm. It is also one of the most difficult to understand. I've included 
times for this algorithm to show that (a) it is very efficient on unsorted 
data, but (b) it becomes inefficient if the data is partially sorted already 
SUMMARY/CONCLUSIONS 

Each of the sorting methods has strengths and weaknesses: 

Bubble Sort (BASIC): Very easy to understand, but too slow. 

Bubble Sort (M.L.): Fast for all but the largest arrays, very compact. 
Does not sort arrays correctly if they contain both negative and positive 
numbers. 


VP RAMBLINGS 

It is now October and the year is almost over. In the land of Atari 
many new things are happening. The one which has me excited is the 
laser-disk system allowing one to have a disk with say a complete 
encyclopedia on it and one can access any subject as quick as you can 
find it in the index, and with pictures. This can revolutionize libraries, 
and anywhere else where they store information. 

The new BBS is running very smoothly now as most of the bugs 
have been worked out. The only thing we have to do at this point is to 
change over to 1200 baud. We are working on that and soon we will 
have it running at that baud. Call the board and see what you think. I 
want to thank you all for your patience when we were having so much 
trouble with the board and many of you couldn't get on or your password 
was lost. We hope those problems and all the others are now gone 
forever. Remember this system requires you to put in your own 
PASSWORD and not one which we give you. Anyway, enjoy the board. 
We hope you will upload your programs to us so we may put them on 
the board for others to use and enjoy. 

As you may have surmised "C" is the coming language for eight and 
sixteen bit machines, and we are publishing programs in this language. 
If you want to see more let us know and we can start a separate section 
devoted just to "C". 

This month I have used several of XLEnt's programs to do the 
newsletter. I hope you like what you see and next month I will have an 
indepth review of their products. 

— Larry Gold 
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0 REN . FILES SORTSTR.BAS 

10 REN 

180 GOSUB 1000:REN | 

200 GOSUB 2000:REN j 
300 GOSUB 3000:REN j 
358 ERR 
480 REN | 


PRINT EL6PSED TIME 


M,L. 8UBBLE5QRT 


POKE START/END OF SORT KEY 


REC LENGTH-6, WANT A^CENDIN* 


410 REN | 

420 POKE 203,0:POKE 204,4 
430 REN j 

440 POKE 205,5:POKE 206,0 
450 REN j 
460 ftriiSR CARR CSORT$), ADR (5$) ,N) 
470 RETURN 
400 REN | 


BUBBLESORT 


500 K=N 
510 T=0 

520 FOR 1=2 TO K 
530 LA5T=CI-2)*L+i 
540 CURREUTsLAST+L 

550 IF S$CLAST,CURRENT-1)<=5$(CURRENT, 
CURRENT+L-i) THEN 570 
560 T=I:HOL0$=S$CLAST,CURRENT-1):S$ CLA 
ST,CURRENT-1)=S$(CURRENT,CURRENT+L-1): 
S$(CURRENT,CURRENT+L-1)=HOLR$ 

570 NEKT I:? ".»; 

575 K=T-1:IF K>1 THEN 510 
500 ? :RETURN 
505 REN | 

IMfrlHfla) 

8 

600 R=N 

610 FOR LL=INT(N/2) TO 1 STEP -1 
620 HQL&$=S$a*(LL-l)U,L*LL) 

630 GOSUB 680SNEXT LL:LL=1 
640 FOR R=N-1 TO 1 STEP -1 
650 HOL0$=S$ fLHR+1,L*CR+1)) 

660 5$CL«R+i,L*tR*i))=5$ti,L) 

670 GOSUB 660:NEXT R:? :RETURN 

600 J=LL 

696 I=J:J=2*J 

706 ON 2+SGNCJ-R) GOTO 710,720,730 
710 IF S$CL*KJ-l)+iA*J)<5$CL*J+i # CL*C 
J+i))) THEN J=J+i 

728 IF H0L&$<5$CL*CJ-i)+i,L*J) THEN S$ 
CLHCI-1)+1,L«I)=S$CLKCJ-1)+1,LRJ):G0 T 
0 690 

730 H0LD2$=H0LQ$: HOL0$=S$ CL*CI-1) +1, L* 
I) :5$CL*a-l)+l,L*I)=N0L&2$:? ».»; :RET 
URN 

760 REN 8 


GETKEY ROUTINE 


SORT BASIC 

88* POKE 704,255 

818 IF PEEK(764)=255 THEN 818 

828 KEY=PEEK(764) 

838 POKE 764,255 
848 RETURN 
888 REM | 


2888 IF TYP$=“H" THEN GOSUB 488 
2818 IF TYP$="B" THEN G0SU8 588 
2828 IF TYP$='*H" THEN G05U8 688 
2988 RETURN 
2998 REM | 

E! 


988 0L0TIHE=TIHE 
918 FLAG=1-FLAG 

928 TIHE=PEEK (28) 4256*(PEEK (19) 4256NPE 
EK(18)) 

9J8 TIME=INT(1808*TIME/68)71888 

948 ELAPSE=TIHE-0L8TIHE 

958 ? "TIME = ";TIME 

968 IF FLAG=8 THEN ? "ELAP5E = "JELAPS 

E 

978 RETURN 
988 REN | 


PRINT RESULT 


3O00 GOSHB 90O:POKE 766,1 
3050 GOSU0 000 

3100 FOR 1=1 TO Mi? I,5$CL*a-i)+i,I#l 
):NEXT I 

3906 POKE 766,0:RETURN 
6000 REN j 
6010 REN i 


U^R Sort routine relocatable 


nuwber of record 


INITIALIZATION ROUTINE 


1060 ? CHR$(125) 

1010 POKE 712,0 

1020 POKE 710,4+16HINT(16*RN6Cl)) 

1030 POKE 709,12 

1100 AIN TYP$(JL),NUH$(4),S0RT$C126) 
1105 G0SU6 6000 

1110 ? :? "Which sort to execute?" 
1126 ? :? »( 0 ) Bubblesert" 

1125 ? :? "(N) N.L. Bubble" 

1130 ? :? H CH) Heapsort":? :? 

1140 GOSUB 000 

1150 IF KEY=2I THEN TYP$="B" 

1155 IF KEY=37 THEN TYP$="H» 

1160 IF KEY=57 THEN TYP$="H» 

1170 IF TYP$<>"B" ANA TYP$<>"H" ANA TY 
P$<>"H" THEN GO TO 1140 
12O0 ? :? :? "Hot# Many iteas do you va 
nt to sort" 

1205 ? "Nax = 999, NiRiMUM = 16" 

1210 INPUT NUH$ 

1220 TRAP 1210 
1230 N=VAL(NUH$) 

1240 IF N<10 THEN 1205 
1250 IF N>999 THEN 1205 
1260 N=INT(N);TRAP 34567 
1790 L=5 

1000 AIN 5$(N*L),HOLA$ CL),H0LA2$ CL) 
1005 S$=CHR$ C0):5$ (N*L)=S$:5$(2)=S$ 
1010 NUNBER=N*L 
1020 AAARESS=AAR(5$) 

1030 10=1 

1040 OPEN #10,4,0,"A: AUP.SYS" 

1050 GOSUB 7000 
1900 GOSUB 900 
I960 RETURN 
1990 REN | 


6020 ren mm 
sale reh qjrx.ij.ia^tuHiPN 

6848 REH fMiHifAU 
6858 REH | 


ltions (relative) 


length, and ascend vs descnd 


START SORT KEY rf'OKE 20 5, STR 


END OF SORT KEY I POKE 204,END 


6868 REH 
6878 REH 
6888 REH 
6898 REH 
6188 REH 
6118 REH 
6128 REH 

6125 ? " I BjMH.mjAMU.mi l " 

6118 FOR 1=1 TO 126:REAR A 
6148 SORT $(I)=CHR$(A);NEXT I 
6158 RETURN 

6168 RATA 184,184,111,217,184,111,216 
6178 RATA 184,111,289,184,111,288,169 
6188 RATA 8,111,218,153,287,162,1 
6198 RATA 165,216,133,214,165,217,151 
6288 RATA 215,24,165,214,133,212,181 
6218 RATA 285,133,214,165,215,133,213 
6228 RATA 185,8,133,215,164,283,165 
6238 RATA 286,248,18,177,214,289,212 
6248 RATA 144,44,248,12,176,19,177 
6258 RATA 214,289,212,144,13,248,2 
6268 RATA 176,38,288,196,284,248,227 
6278 RATA 176,23,144,223,169,1,133 
6288 RATA 218,164,285,136,177,214,72 
6298 RATA 177,212,145,214,184,145,212 
6388 RATA 192,8,288,241,232,224,8 
6318 RATA 288,2,238,287,228,288,288 
6328 RATA 172,165,289,197,287,288,166 
6338 RATA 165,218,281,8,288,144,96 
7888 REH | 


CIO TO GET BYTES 


7818 TRAP 7188 

7828 1008=832410*16:POKE 100842,7 
7838 ARRHI=INT(ADDRESS/256) 

7848 ARRLO=AORRES$-AORNI*256 

7858 POKE I0CB44,ARRL0:P0KE I0C845.ARR 
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SORT BASIC CON'T 


hi /« 

7060 NUHHI=IMT(NllMBER/256) /tt 

78 MJML0=MMBER-256*MIMHI 
_ JO POKE I0C8+8,NUHLO:POKE I0CI+8,NUH 

HI /# 

7080 I=USR (APR r'hhhuLVEF*), 10*16) 

7100 TRAP 44444:CLOSE tUO:RETURN 

C BY WALDEN 


NEMU.C Written in C */ 
This progran lists a Menu of */ 
".CON" files, and allows the */ 
user to select which file */ 
to run. #/ 


f**** STUDY. C ***/ 


naino $c 

int iocb,place,count,i,j,k,ifMargin; 

char dirnaMeC28J,tnp[29], 
filenaMe[17*641; 


$) 

/* reMove the FREE SECTORS filenane * 

r 

count-^17; 

closealK); /* close the directory * 

if(‘count) $( 
printf C'MO FILES!\n"l; 

/* Can't do a Menu with no files! */ 
exitO; 

$) 


'* A norMai fore loop */ 
forCi=i;i<i8;*+i) 

A comp lex forC loop */ 
for(k-i-8,j-J; val>4; k*=12) 

f * An infinite fort loop. You could 
'* get out of this with the break; 
f * statenent 
for(i=8;;++i) 

f* An exanple of the ?: statenent 
2 - (a>b)? a:b 

f * The above will assign to z either 
f * a or b depending on which is larger 


ftainO $( /* run this progran! 
int i; 

for(i=l;i<3;**i) $c 
'VC recognizes only one ?: per line 

printfC'There Xs", 

(i)ll? "are" ; "is"!; 
f * so we split the printf statenent 
printfC" Y.d playerXs\n",i, 

(i)ll? "s." : •'."); 

$) 

$) 

•ainC) $( /* run this progran! 
int i; 

this will count the nunber of keys 
/* pressed until the BREAK key 
for(i=9;getchar()>=8;++i); 
printfC"\nXd keyXs",i, 

Ci == lj? " •• : «s "I; 
printfC"Xs pressed.\n", 

Ci == l)? "was” : "were"); 

5) 

f* MOTE: == is used instead of = in C 
f* when used to conpare two values 
/* rather than assign one value to 
/* another. Ci == 1) MOT Ci=l)! 

7* It's a connon Mistake to nake if 
/* you're used to progranning in BASIC 


/* A wildcard will be used unless */ 
/* the user specifies otherwise. */ 
/* The default drive will be added */ 
/* By the nornalizen function. */ 
if C!getdos Cdirnane)) strcpy Cdirnane, 

"*"); 

(* don't allow any extentions */ 
ifCCi=strchrCdirnane,'.'jj > 8) 
rfirnanem=8; 
norna1ize Cdirnane,"CON"); 
ifC(iocb=copenCdirnane,'d')) < 9) $C 

printfC'Can't open directory of 
Ks\n",dirnane); 

t* fatal error, so return to BOS */ 
exitC); 

$) 

count=9; 

/* read all the Matching filenanes */ 

whileCcgetsCtwp,iocb) > 9) $C 
/* start with the drive */ 
strc py C fi1enane+c ount,dirnane); 

/* add the prinary nane */ 
forCplace=3,i=2;i<=l8;++i) $c 
/* stop if it's a space */ 
ifCisspaceCtMpCil)) break; 
else filenane[count*(place**)):: 
tMpCil; 

$) 

/* 4md--of~ th# string-*/ 

filenane[count+placel=9; 

/* add the extension */ 
strc at C fi1enane+count,".CON"); 

/■* Use the following line as a tenplat 
e 

to renove any files you don't want 
f * to include in the nenu */ 

if(indexCfilenane*count,":CC.")) 
continue; 

else count+=17; /* next filenane * 


'* Mow we print the nenu */ 
putcharC'Vf*);/* clear the screen */ 

/* for future use */ 
lfnargin=peekC9x52); 

/* Print all filenanes */ 
for(placesi-8;i <26 99 place<count; 
f*i,place*=17) $C 

printfC'Xc- ",*A'*i); 

/* print the prinary nane only */ 

forCk=3;filenane[piace*k) != 
f+k) putcharCfilenane[piace+kl); 

putchar(«\n');/* add the return */ 

ifCi ”= 14) $C /* Second colunn */ 

/* set the left nargin */ 
poke(9x52,28); 

/* reposition the cursor at the top o 
f 

/* the next coluwt */ 
position(28,9); 

$) 

$) 

/* restore the left nargin */ 
poke(0x52,1fnargin); 
position(2,23); 
printf C' fidMiMiiiSfr ): 

/* until we get the correct input */ 
whileCisalphaCi=toupper(yetkey C))) 

99 Ci-'A' > count/17)); 

/* go run it! */ 

chain(filenanef(Ci-'A')*17)); 

$) 
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FILE: SORTNUM.ACT 


* MKKltMXftMKNMMItKItftl i lfKl t XMlCftlH H U fft ftXlflCltXKM 
ft 

MODULE 


DEFINE GLOBAL VARIABLE 


■ MftftftXftll ft ftKftltMXl fft llKimKMMMlUfltMmtimKMMItlt 
* 


BYTE KEY,FLAG=103,TYP,HFLAG 

CARD ARRAY 5(1880} 

CARD M,K,I,T,H, 

R,N 2 ,L,LL,HOLD,RR,J,HOLD 2 ,JJ,R 2 

; MftMMftMlCMXMKltl f ltKXMftl H I ft KlHfltKft ft ltlfftlfMltftMM 

* 

PROC bubble o ;(39M9^QO 

; KliXKIil l l fft ftMltXlf ft ftftftlHCKMMKMMftftltltMKKXMXlClf 
ft 

K=N 


SORT ACTION 

IF JJ<RR THEN 

IF SCJXSCJU) THEM 
J=J+1 FI 
FI 


IF JJ<=RR THER 

IF H0LD<5CJ) THEM 
5CI)=5(J) HFLAG=8 FI 
FI 


IF JJ>RR OR HFLA6=1 THEM 

H8LD2=H0LD:HOLD-5(II 
S(I)=H0LD2 
FI 


UNTIL HFLAG=1 
OD 

RETURN 


DO UNTIL PEEK (764111255 OD 

KEY-PEEK(7641 
POKE(764,2553 


RETURN 

jftftft ftftKXXN ft ftMM iH fMMftftl f MKXKMJfKXMXMXMMItKX 

ft 

PROC TIMER (3 ; igng«giHI*»a 
‘ MmfKKMKKMMMMMKKKNMftKKMKKMftftMMKMKKKICKK 


CARD tine 

BYTE plB=i8,piS=lS,p28=28 
flag = 1-flag 

IF flag=8 ; not 1st call 

THEN tine = p28 + 256ft 

(PlS + 256*pl83 
Print("Elapsed Tine: "3 

PrintCCtine/GO) 

PRINT(« AND "3 
PRINTC(TIME MOD 68) 
PrintEC/68 seconds") 


DO 

T=8 


;TE5TPRT(3 


FOR 1=2 TO K 
DO 

IF 5(1-13>5(I) THEN 

T=I:H=5(1-13:5(1-13 =S(13:5(13 =H 


FI 


OD 


} IF 1=10*(1/18) THEN PRINT("."} FI 

K=T-1 
UNTIL T<3 
OD 

PRINTEC* ”3 
RETURN 

; MKMKICMKftKftimKMKIIMMKftftMftMlIMKMKMMKKKMIlK 
ft 

PROC HEAPSMAPO 

; KftftftftKMICMKftftMKKMftft ft MKMItKm t ftft N MMMMftKKW 
ft 


;ft ftftftXMMM ft ftlHIMitftKKftftlCftltlCKICKftft ft mtKmCMKIC 
ft 

PROC NEAP (3 

j ft Nft ftXMKMKKKKKKMKKMftl t ftM i UniKKKft ftft KKIINini 
ft 

R=N M2=M/2 

FOR L=1 TO N2 
DO 

LL=M2+1-L ;NO STEP -1! RETURN 

HOLD=S(LL3 ;Nft KKH«KKKIHIKNKKKinillHMMMKKKK«KHKKKIliUCK 

HEAPSMAPO * 

i IF L=18*(L/18) THEN PRINT C*.'*) PWC PMSTSCREEN O 

Q 


FI 


pl8=8 ; reset 

piS=8 ; the 

P20=8 ; clock 


CLEAR AND PFIN 


PRINTEC* **) 


FI 
OD 
LL=i 

FOR R2=l TO N-l 
DO 

R=N-R2 

H0LD=5(R+1) 

S(R+1)=5(1) 

HEAPSMAPO 


; K ft ftKKMKMftMXMKKKMMftMMKMMKMMMftftft ft ft ft MKItlt 

ft 

BYTE J,FIR5T=C81 


;MO STEP -1! 


FI 

OD 


J=LL 


DO 


I=J 

HFLAG=X 

J=2*J 

JJ=J 

RR=R 


IF FIRST=8 THEN GRAPHICS(83 FI 
FIR5T==U 
POKE(712,83 

IF R=18ft(R/183 THEN PRINT( ,, . ,i 3 J=RBND(163 POKE(718,4+16*J) 

POKE(70S,12) 

PRINTEC* ••) 

PRINTEC' **) 

return PRINTEC* Mhich sort to execute?**) 

; KKXKKMXKXKMMXKKKMMK ft KMXKKKMftftftftMKKMMK P * IiiTE (** **) 

II PRINTE(** (B) Bubblesort**) 

PRINTEC* **) 

PRINTEC** (H) Heapsort”) 

PRINTEC* **) 

PRINTEC* *») 

RETURN 

;ft ft ft XMKXI I KMItKHKKKKXftl ll lKKKKKKXftftMftKKMKM 
ft 


PROC GETKEYO 


GETKEY ROUTINE 


POKE(764,255) 
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RESCUE 

# B«ltE OATA C8598D84D485CB285352A96880F4 


IT, CHECKING OATA!":FOR 0EL=0 TO 1 
»™£XT »EL 

10 DATA 0,1,2,3,4,5,6,7,8,5,0,0,0,0,0, 
0,0,10,11,12,13,14,15 

15 OPEN HI,S,0,"»:RESCUE.OAT" 

20 AIM HEX$(91),Y$(1),HEX(22)iFOR X=8 
TO 22:REAO N:HEX(XI-N:NEXT X;LINE=990: 
AD-20736iHEH=AOiTRAP 68 
25 T0TAL=0:LINE=LINE+18:? ” LIHE:”;L 
IKE:REAO HEX$:IF LEH(HEX$)<>98 THEN 11 
0 

28 0ATLIN::PEEK{i83)+256*PEEK(184):IF 0 
ATLINOLINE THEN POKE 559,34;? “LINE " 
;LINE;" KISSING!!! n :ENO 
38 FOR X=1 TO 89 STEP 2;01=ASC(HEX$(X, 
X)J-48:D2=ASC (HEXS CX+1,X+l))-48:BYTE=H 
EX (01)*16+HEX(02) 

40 PUT ttl,BYTE:TOTAL=TOTAL*BYTE;NEXT X 
:REAO CHK:IF TOTAl-CHK THEN POKE 53279 
,0:G0T0 25 
50 GOTO 120 

60 IF PEEK (195) 06 THEN 130 
70 POKE 559,34:? CHR$C125);CHR$(253);" 
MARKING, MAKE SURE PROGRAM IS SAVEO!! 

11 

75 ? :? :? " REAOY TO RUN(Y/N)lINPU 
T Y$ 

88 TRAP 100:CLOSE HI:IF Y$="Y" THEN OP 
EN ttl,4,8,"0:RESCUE.OAT" 

85 IF Y$<>"V" THEN ENO 

ET ttl,BYTE:POKE MEM, BYTE: HEK=NEM+1 

95 GOTO 90 

100 IF PEEK(195)=136 THEN A=USR(AO):EN 
0 

185 POKE 559,34:? “ERROR ";PEEK(195):E 

NO 

110 POKE 559,34:? "NUMBER KISSING OR A 
OOEO!": ENO 

120 POKE 559,34:? "BAO OATA!":ENO 
130 POKE 559,34:? "ERROR "jPEEK(195):E 

NO 

1000 OATA 2065E4A05FA256A907205CE4A9A6 

808082A957808102A9C8808E04A9CA80C882A9 

5E809859800008A99A809959,5404 

1010 OATA A96S8OO7O4A93EOO2F02A9O3SO1O 

00A902006F02A906003002A959803102A9E000 

F402200053A914800359A901,4044 

1020 OATA 80C059A98080C602808302AD1FOO 

2901000AA01F002981FBF94C7E51A0840200EA 

4C7E51A91BA206903058E8E0,5331 

1038 OATA OAOOFSA910005758A91180BC5900 

5B58A90280BA59A90B805058804F58004E5080 

C102A900803082A958803102,4724 

1840 OATA A9F880C35980C659A90280B859A9 

838O6F59A9FC8OC859A9808OC9598OB959A950 

80B659808459208053A90080,5938 


82A99400C60220AF52A99A809959A9BE80B559 

808408A2CFA90190886BE8EB,5882 

I860 OATA D4O0FSA90480B959A90B8OC1598O 

C75980C55980B059801E0080C45980B759809A 

59809C5980C05980BE5980CA,6309 

1078 OATA 59AA20B05220FCS5A90080C45980 

C559801ED0A924808102A98E800BD2A95E8O98 

1088 OATA E8E027O8F668EEBA59A9148B6O59 

200A56A9AA80010200000228FC55A970800002 

28FC55A90080010280C45920,5685 

1090 OATA 805320A5S520FC55CEC859CE04S9 

AOC65938E90580C6594COE51A20080A158909F 

59E8E01400F560A200AOC159,6040 

1100 OATA OOC258F006E8E00E00F3608OB558 

E8E8E8909F59CABOA158909F5960CE90S9F001 

68A07802809E5929010003CE,6397 

1110 OATA 9959A09E5929020083EE9959A09E 

5929080008EE9859A900809C59A09E59290400 

08CE9859A904809C59A09859,5216 

1120 OATA C9900008CE9859A90180C259A098 

59C92F0003EE9859A09959C9490003EE9959A9 

8F809059A09A59C9040005A9,5919 

1130 OATA 00809A59AC9A590949S910609C59 

AAEE9A59A900186908CA00FAA8A908809B59AE 

9959B9015890006CE8C8CE90,5827 

1148 OATA 59O0F3AO98598O00O068A9B0AA90 

806B90006C90006090086E90006FCAOOEE60AO 

C159C9419086AOC059085B60,5545 

1150 OATA CECC59AOCC59F00160A95480CC59 

A0C0590047EEB059A00A02801E00C94A90F6C9 

9BB0F2A8A9008001598CCES9,6673 

1160 OATA A2A38E82008ECFS9A908809B59A2 

408E0059B0015099006EE0C8CE9B59A09B5900 

F8A0015900C2A90180C05960,6412 

1170 OATA AOC0590015A001590008A94080CA 

594C1754ACCE59A9004C5154A90180CB59A000 

591869O88OO859AAC978900E,5395 

1180 OATA A9088DC05980CB59A00A0280CC59 

ACCE59A90S8O9B59BOO15899006EC8E8CE9B59 

A09B5900F86099006EC8C008,6148 

1198 OATA 00F84CB953A0C159C9A8B0O160CE 

0259F86160A901800259A003590036AOC159C9 

CB900168A901800359EEB059,6303 

1208 OATA A908800459000108A08A02C94990 

F9C96880F5A88C0559A200B04E5999006088E8 

E04A08F460CE0459A0045980,6753 

1210 OATA 0100C91E900160A900800359A900 

AAAC0559990060E8C8EB4AOOF760CEC359AOC3 

59F00160CEB859F08160A0C6,6118 

1220 OATA 598OC359A9028OB8S9CEB559AOB5 

598O04O0C95EF80168A9088OO1O28O01O8BO02 

00800602EE9959A910809B59,5632 

1230 OATA 205456CE9059A09BS900F5A900A2 

81285053A0C559F0034C2055A0C459F0094C6E 

52A900800102800702208053,5275 

1248 OATA A900ACCE59A280998O6EC8E8E088 

08F780C159205456A2400E00598ECA59AC9959 
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A908809B59AE0059B001S899,5989 

1250 OATA 806CE8C8CE9B59A0905900F0A935 

809B59CE9659205456A09B5900F5205456A000 

591869888OO059C97890C5A9,6062 

1260 OATA 0080C559801E0020045520545620 

54564COE51A06A5980BB59A910005858805758 

A01BCEB8S9008160B93058C9,5110 

1270 OATA 1AF009186981993O584CB355A918 

993050884CB855CEBF5920FC55004ES8804F58 

8O5058A0BF59FBOFACBF59A2,5119 

1280 OATA 13A906903058CA8800F96068684C 

4151A900809B59205456CE905900F860EEB059 

A209CEB059000160B03058C9,5599 

1290 OATA 19F00869019030584C0056A91090 

3058CA4C1556200E5220965320545620C05420 

1300 OATA 59F0034C2055A0BE59O0FB4C2056 

A200A003CA00F08800FA60A0C059F015CEB359 

0080A92080B359AOF3024902,5847 

1310 OATA 80F3024C62E4AOFC02C9210000A9 

FF80FC02A0BE5949FF80BE59A0BE59F0034C62 

E4EEC282205C54A0B759000F,6096 

1328 OATA AOC159C9910000A90F80B05980B7 

59A006002903F003EE0159A00400290BF003EE 

C559A004002904F003EEC459,5643 

1330 OATA AOBCO82906F0B3EEC559AOCA59F0 

004A4A800302A928000202CECA59A0C259F041 

CECF59AOCF59800200CE0459,6075 

1340 OATA A00459800108A90080C259C6CBA5 

CB8084041084A90785CB8004048540EEOE58AO 

0E58A200900E58E8E8E8E027,5765 

1350 OATA 00F6EEC15920B052A00A02C0CS59 

9829AOC75949CF80C759AOC759A0O099E45FC8 

C00900F8A00099E461C8C009,6512 

1360 OATA OOF8A00899E463C8C00900F8CEB4 

59F0034CA357A0B65980B459A0B9590AAAA980 

90705E90705F908E65908E66,6281 

1378 OATA CEB959AOB9590005A90480B959AO 

B9590AAAA97090705E908E65A97C90705F900E 

664C62E4488A48A280B0C057,5810 

1380 OATA 901600E8E00300F5AOBA02801900 

68AA68483478C6000000600000000000000008 

000000000000000880000000,2878 

1398 OATA 0000000880000000000000000800 

00080000000000000800000088000000008080 

000000007070704630582086,721 

1400 OATA 30479F593856005B56805C56O05O 

56005E5600SF560060S6006156006256006356 

006456006556006656006746,2864 

1418 OATA 655807308641085841424344458A 

1011151610000000000000000000C8C5C9C5CB 

8A1011000000000000000080,2134 

1420 oata eoooooococecoeocococecocococ 
ococococococococococococococecococococ 

OC8COCOCOCOCOCOC0COCOO86,614 

1430 OATA 8785882B2C6C606C6C606C6C606C 

6C600080OOO8082E2FI03132333435I6373738 

39000000006E6F7071727374,3147 

1440 OATA 757677777879000A1E32465A6E82 



95AABEB2BFE9FF001F044E3F1F0E00068E044E 1648 BATA 0800000088000080800080000080 800000000000000000000000,119 
3F1F0E080004844E3F1F8E00,3254 008000220C8C0C0C0C0C0C0C0C0C0C0C0C0C0C 1848 BATA 008000000880000000000000 

1458 BATA 080E044E3F1F0E08007C18357E7C 0C8C0C0C8C8C0C0C8C0C0C0C,358 0000000000000008000000000000080C0C/w4 

3880003810397E7C3808801010397E7C380080 1650 DATA 0C0C0C8C0C0C0C0C8C0C0C0C0C6C 00000800000080007B0C8C0C,305 
3810397E7C3808008008181C,2032 0C0C8C8C0C0C0C8C0C0C0C0C0C0C0C0C6C8C0C 1858 BATA 0C0C0C0C0C0C0C0C0C8C0C0C0C0C 

1468 BATA 0080000012205C360A2088104410 0C8C8C8C0C0C8C8C0C8C0C0C,540 0C0C0C1A000000000000000000000800000800 

5A0B2204000410249908224804896808A10940 1660 BATA 0C0C0C8C0C0C0G00000800000006 0060008000004E0000000008,308 
24(124064801800004200000,1785 08006000000000006600000000860006600000 I860 BATA 0000000008860086000006000000 

1478 BATA 0000806080000001026384610387 000800000800000600060000,84 08000000800080060000800000000000000000 

3F7EFE7E3F0703810000000000800080000800 1678 BATA 0000000006000000000000800000 000000000800608060800008,0 
800060000600008080018307,675 0800600000000000080080000C0C0C6C0C6C0C 1878 BATA 00064E0806860000000006000080 

1480 BATA 3F7EEE7E3F670301800600008000 0C0C0C8C0C8C0C0C0C0C0C0C,228 00000000000000001B0C0C8C0C0C80060B0022 

00000000000008000000060000600103073F7E 1680 BATA 0C6C0C0C0C0C0C0C6C0C0C0C6C0C 0C0C0C0C0C0C6C8C0C0C8C0C,356 
FE7E3F070301005EA1010880,1553 00006006800600000000000060006000000000 1880 BATA 0C0C0C2386661B6C0C0C0C6C0C8C 

1490 BATA 018F8000006E2F30313233343536 000000000006000000008600,168 6C1A00000C0C0C0C8C0C0C0C0C0C8C0C0G0C60 

37373839000000601E475E5000020402001106 1698 BATA 0000006008000000066000000080 000800001B0C0C6C66068080,451 
0060010080F80000F880FC06,1002 08008000000000000008000600068006000000 1890 BATA 0000006086000860000086000000 

1580 BATA 0000680089A37880610054667070 000000000080000000060606,0 00000000080008000060060000600000000000 

7070707047F459707807707070700670700670 1708 BATA 000080600060228C0C0C0C6C0C0C 600000000000688008000000,0 
707082707070410659008080,3744 8C0C8C230B222308000B220C0C0C0C0C0C0C0C I960 BATA 0000806000660080600000000006 

1516 BATA 7200650073006300758065060000 8C0C0C0C0C0C0C0C0C0C6C0C,571 000C0C00000008000080000080600C0C0C0C6C 

00008000000000606B0069007300730069006F 1710 BATA 0C0C0C0C8C0C0C8C0C0C8C0C6C0C 0C0C0C0C0C0C0C6C0C0C8C0C,228 
006E0 0 88 868 622390027252F,1031 6C0C0C0C0C0C0C0C0C0C0C0C0C0C6C0C0C0C6C 1910 BATA 0C8C6C0C1A800000006086000000 

1520 BATA 26268034282F2B30332F2E000026 0C0C00080000008000800600,428 000000000000006000001B0C1A000660060000 

2F3200382127250816002B2127213A292E2580 1728 BATA 0000086008060000800000000000 008000000000000000060006,139 
000000000000008000060008,1098 00080000080000000000806000088006000000 1920 BATA 0000800000000000000000000000 

1530 BATA 0000303225333306B304A182B400 000000000000000000000000,0 0000000000000000000000080000086600001B 

00088000800060680880800080600000000000 1730 BATA 0000006060000000600008000C6C 0C1A00001B0C1C1B1E80081B,218 
008060008000800000088000,1115 0000000000000000000008060000860C0C0C0C l?** BATA 1A0000000060061B0C0C8C0C6C6C 

1548 BATA 0000000000000606600000080680 8C 6 C 6 C0C 8 O6C6C6C6O0C6C6C, 3U6 1A80080000220C0C0C8C8C230B00228C0C0C8C 

00008600880000000800000008000000000000 1748 BATA 0000000000000000000000068000 2388881B8C0C8C8C8C8C0C0C,533 
000068060000800000000880,0 00000080000060000000000000000000000000 1948 BATA 0C6C60608C0C0C0C6C0C0C0C r ' 

1558 BATA 0008060060006660006060000680 000860000600000008000000,0 0C0C0C0C00000C8C0C8C0C0C0C00080004 , 

80006000000800000000000060000680060000 1750 &flTA 0000000086000000000000000000 000000000000008060000000,275 
608068000000680000088008,0 00800000080000000080000000608000008008 1*50 BATA 0068000008000680000660060080 

1560 BATA 0000600000080000806000680000 080000000022000060000000,106 00000000000000006000000000600068068000 

00000008000000000000000000000000000000 1700 0ATA 0C23000000008000000868220C6C 600000008000000000000600,8 
000000000006000C0C080800,24 0C0C0C6C0C8C6C0C0C0C0C6C8C6C6C0C0C0C6C 1950 BATA 000C0C7A0006800000000000007B 

1576 BATA 8060000000006000000000000000 230008088000800070008022,527 0C0C0C0G0C0C0C0C0C0C8C8C6C0C0C6C0C0G6C 

00000000080000000008000008000000000000 1770 BATA 0C0C0C0C0C0C0C0C0C0C0C6C0C0C 0C0C0C1A0808808008800888,559 
000000800000008080000000,0 0C0C0C0C8C0C0C000C0C800000606000000060 1970 BATA 80008000000088188C8C0C6C8C1A 

1580 BATA 0000000000000000080080000000 000000000800008000006806,276 08000000000000000000000008000000080608 

00000800000000000000080000000860228C0C 1780 BATA 0000600060800006660000000000 000000000000006000008006,113 
0C0C8C0C8C0C6C0C0C0C0C0C,202 00000000080000800000000000880000000006 1988 BATA 4E80000008008000000600060000 

1598 BATA 0C0C0C8C0C0C0C8C0C8C0C0C0C8C 000000000000000000000C8C,24 6021201F0C0C8C1A1B0C8C8C0C8C60180G0C1A 

0C0C0C0C0C0C0C6C0C0C8C0C0C6C8C0C0C0C0C 1796 BATA 0000060000000000000000000800 000000001B0C0C0C0C0C8C0C,511 
6C0C0C0C0C0C8C0C0C8C8C8C,548 AA0C8C0C0C0C8C0C0C0C0C0C0C0C0C0C0C0000 1996 BATA 0C8C6C0C1A00226C242526000000 

1600 BATA 0C8C0C0C0C0C0C0C8e0C0C0C6C0C 000000000000000008000068,362 0000220C2300001B0C0C0C0C0C6C0C6C0C6C0C 

0C0C0C0C8C8C0C000000680600006000000000 1888 BATA 0000000006800000000000006000 00000C0C0C0C8C0C0C0G8C0C,591 
000000000000800000000000,252 60000000000600000000008008000000000800 2066 BATA 0C0C0C0C80000C0C8C0C0C0C0e60 

1610 BATA 0000000006006800000000000000 000008000000000000000608,0 00800080000080006060080000880000000808 

00000008080606000000008060000600000000 1818 BATA 0000000000000008000000000608 000000000080000000806000,132 
080000000000008C0C0C0C0C,50 00008080000000000000000B292827230B0806 2010 BATA 8000000000060600000080000000 

1620 BATA 0C0C0C6C0C0C8C0C0C0e0C0C0C6C 000088000800101A8808228C,288 0000080080000000080008000866608000000C 

6C0C0C0C0C0C0C0C0C0C0C0C0C0C0000060000 1828 BATA 0C0C0C0C0C0C0C0C8C0C0C0C0C6C 000000000000000800000080,24 
000000860006000000800608,336 0C0C0C0C2300000006000000007C000000220C 2020 BATA 0C0C0C8C0C6C0C6C0C0C0C0C0C8C 

1630 BATA 0000006000080000060008000000 0C0C0C0C0C0C6C0C6C0O6C0C,565 0C0C0C0C0C0C6C0C0C1A088000006000600000 

00000000000000000000000000600800600000 1838 BATA 0C0C0C0C8C2300000C8C00006006 0008084E1B0C0C8C0C0C0C0C,491 
080000060088006000000800,0 00000000006006000000000000000000060660 2636 BATA 1C1B1E0000008600000000600000 

9 



RESCUE CONT 

0000000000060660060006000021201F8C0C1A 
' ^00000000000000004(16,338 

> OATA 0C0C0C0C0C0C0C0C0C0C0C0C0C6C 
2230 DATA 0C0C 000008000000000000000000 

0y 88808 8 0>0O8 8 80OO 8ii 0000Otii i itdl i6 l8 

000008800808008000000080,24 
2248 DATA 0080000800008600000008000000 
90006000000080800060000000008800600060 
B00C6C0C0C6C6C0C0C0C0C0C,132 
2258 DATA 0C0C0C8C8C0C0C0C0C0C0C8C0C0C 
9C0C0C0C0C0C0C0C0C0C0C0C0C0C8C0C0C0C0C 
9C0C0C0C0C0C8C8C0C8C0C0C,548 
2268 DATA 8C8C8C0C0C0C8C0C0C8C0C8C8C0C 
0C8C8C8C0C0C8C8C0C0C6C0C8C8C6C0C8C8C0C 
0C0C0C0C0C0C0C0C0C0C8C0C, 540 
2270 DATA 8C0C6C6C8C6C0C0C0C0C0C6C0C0C 
9C8C0C0C0C0C0C8C0C0C0C8C0C0C0C8C0C8C8C 
BC0C0C0C0C0C0C0C0C0C0C8C,540 
2288 DATA 8C0C0C0C8C6C0e0C0C8C0C0C0C6C 
BC0C0C0C6C0C0C0C8C0C0C0C0C0C0C0C0C0C6C 
000680000000000000800800,396 
2290 DATA 0008080008868000000008060008 
90000080000080000800800000600000080000 
800000608800000000000000,0 
2368 DATA 0000800008000006800600080000 
9060000000000C0C0C0C0C0C0C0C0C0C0C0C0C 
9C0C0C0C0C08668000000800,216 
2316 DATA 00803C603C0E8E7E3C003C666666 
7E7E3C803C6666667E7E3C887C66667C7E6E66 
907E6078607E7E7E607E687C,3732 
2328 DATA 7070707806666666i67E7E7£0060 
^ C 0607E7£7E00666666667E3C180018168818 
80001F044E3f1F8E06FF,3218 
2338 DATA FFFFFFFFFFFFFF7F7F3EJE1C1C08 
B800101810387CFEFE080600FF00000000863C 
BE76667E7E3C86183818187E,4182 
2340 DATA 7E7E0O3C660C187E7E7E067E186C 
BC667E3C000C1C3C6C7E7E0C607E607C06667E 
SC003C607C667E7E3C807E06,3228 
2350 DATA 0C18383838803e663C667E7E3C88 
SC663E060E3C3880C0E0F0F0FCFEFF0163070F 
LF3F7FFFE0FCFFFFFFFFFFFF,5581 
2360 DATA 080080F0FEFFFFFF6000008880C0 
F8FF873FFFFFFFFFFFFF8088810F7FFFFFFF80 
90606808031FFFFF7F3F1F0F,5378 
2378 DATA 878381FFFEFCF8F0E0C888FFFFFF 
FFFFFFFCE0FFFFFFFEF0888000FFF8C8000000 
I000FFFFFFFFFFFF3F87FFFF,8802 
2380 DATA FF7F0F010000FF1F038006060600 
B00000000000FFFF6080000000010101000000 
B0000011FF00000800000111,1490 
2398 DATA FFC0C0C0C0C1F3FFFF66600660F0 
F8FDFF000000006377FFFF0000080287CFFFFF 
FF3E1041EBFFFFFFFF7F3D98,6548 
2488 DATA C0E7FFFFFFE3C19D30FDFCFFFFFC 
F9F8F68307FF80008080868086FF0000000000 
8060FF7F404141414101FFFF,6477 
2418 DATA 3FFFFFFFFFFFFFC0F8FCFFFCF8C0 
90038F3FFF3F0F0300FF7E7E3C3C1818000818 
183C3C7E7EFF000008000006,4983 


0C0C0C0C0C1A21201F0C0C0C0C6C0C0C6C0C0C 
0C0C0C1A06000000001B0C1A,597 
2058 DATA 000000000000108C0C008C6C0C8C 
0C8C0C0C0C00000C0C0C8C0C6C0C6C0C6C6C0C 
0C0C00000C0C0C0C0C8C8C00,423 
2068 DATA 0008008000060000000000000000 
80000000000000000060000000660000000000 
000000080000000800080000,0 
2076 DATA 0000000000066066000000000000 
900600000C8C7A000080000000000000700C0C 
0C0C0C0C0C8C0C0C0C0C8C8C,437 
2088 DATA 0C0C0C8C0C0C6C0C0C0C1A008600 
000800000000001B0C0C0C0C0C0C0C0C0C0C0C 
8C1A604E0000000800600060,421 
2098 DATA 000000800006004E000000061B0C 
0C0C0C0C0C1C1D1E0000600000001B0C0C0C0C 
0C0C0C8C0C0C0C0C6C0C0C0C,483 
2106 DATA 0G0C6C0C0C0C0C8C8C0C0C0C6C0C 
0C8C0C0C0C0C0C0C8C1A0021201F0G0C0C1A06 
1B0C8C0C0C0C0C0C0C8C0C6G, 619 
2110 DATA 0C0C0C0C0C00008C0C0C0C6C6C8C 
0C0C0C0C0C0C2300600C0C0C6C6C0C0C000000 
000680800800000008800600,335 
2120 DATA 0000000000000000000000000000 
00608000000000000008000000000000000000 
000000080800000800000000,0 
2138 DATA 000880000C0C0008060000008800 
0000000C0C0C0C0C0C8C0C0C0C0C0C0C0C0C0C 
8C8C0C0C0C0C0C0C8C000600,324 
2140 DATA 8000600060081B6C0C0C0C0C0C0C 
8C0C0C0C0C0C0C6C0C1A060008060000000000 
4E21201F0C8C1C1D1E1B0C6C, 501 
2158 DATA 8C0C0C0C0C8C0C8C1A4E1B8C0C0C 
0C0C0C8C0C0C0C0C0C0C0C0C6C0C0C0C0C0C0C 
8C0C0C0C0C0C0C0C0C0C0C0C,635 
2160 DATA 0C0C0C0C0C0C0C0C0C0C6C0C0C0C 
BC0C0C0C0C0C0C0C0C0C0C0C0C0C0C6C0C0C0C 
9C0C0C08000C0C0C0G0C2300,527 
2170 DATA 00008000007D06081B0C0C0C0C0C 

0C0C0000000006000000000000000000000000 

080000000000000000060006,236 
2188 DATA 0000606060000008000006000008 
00000000000008000000000000006000000000 
00000G0C0000000000000008,24 
2190 DATA 0000060C0C0C0C8C0C6C0C0C8C6C 
BC0C0C0C6C0C8C0C0C0C0C0C0C0C1C1D1E604E 
B021201F0C8C0C0C0C0C0C0C,657 
2280 DATA 0C0C0C0C0C0C0C6C6C8C0C8C0C0C 
BC0C0C0C0C0C0C0C0C0C0C0C0C0C6C0C8C0C0C 
BC0C0C0C0C0C0C0C0C0C0C0C,540 
2210 DATA 0C0C0C0C0C0C0C6C6C0C8C0C0C0C 
BC0C0C0C0C0C0C0C0C8C8C8C8C8C0C0C0C0C8C 
IC0C0C8C0C8C0C0C0C0G0C0C,548 
2220 DATA 0C0C0C0C0C0C0C0C0C8C6C6C0C0C 
)C0C0C0C0C0C0C0C6000000006000000000000 
)000007C001B0C0C6C0C0C0C,487 
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ANALOG INPUT DEMO 
FROM AUGUST 

10 REM ANALOG INPUT DEMO 
15 OPEN #2,4,0,"K: 

20 GR.2+16 

30 ?»6;“ANALOG INPUT DEHO 
48 ?#6; "1.TEMPERATURE 
50 ?#6j»2.LIGHT LEVEL 
60 ?#6;»3.HUMIDITY 

62 ?H6;:?»6;»PLU6 SENSOR INTO PINS 7 A 
ND 9 OF JACK 1 
75 GETN2,A 
88 ?H6;A~48 

96 FOR TIME-1 TO 80;NEXT TIME 

95 ON A~48 GOTO 190,200,308 

98 G.999 

180 GR.2+16 

110 POKE 752,1 

128 P=PEEK(624) 

125 POS.8,0 
130 T- (38“P)*18/13+74 
148 ?#6;"THE TEMPERATURE IS 
150 ?#6;INT(T);" DEGREES 
160 IF PEEK(764)0255 THEN GET »2,A;G. 
20 

170 G.120 

208 GR.2+16 
210 POKE 752,1 
228 P=PEEK(624) 

225 POS.0,0 

230 ?#6;»THE LIGHT LEVEL IS 
235 L=100-P«180/228 
240 ?*6;INT(L)j" 

258 IF PEEK(764) 0 255 THEN GET M2, A;G. 

20 

268 G.120 
270 GR.2+16 
280 POKE 752,1 
298 P=PEEK(624) 

300 GR.2+16 
310 POKE 752,1 
320 P=PEEK(624) 

325 POS.8,0 

330 ?#6;»THE HUMIDITY IS 
335 H=180-P*108/228 
340 ?H6;INT(H);" 

358 IF PEEK(764) 0 255 THEN GET H2,A:6. 
28 

366 G.120 
999 GR.1+16 

1008 ?B6;»PARTS LIST";?#6J:?N6;“TEMPER 
ATURE SENSOR: FENHAL THERMISTOR G 
A45P2,58000 OHMS 
1018 ?#6;"AT 25 DEGREES C. 

1020 ?#6;:?a6;"LIGHT SENSOR: 

GENERAL ELECTRIC X~6 PHOTOCELL 
1030 ?#6;:?«t6j"HUMIDITY SENSOR: 

DEVRY INDUSTRIES HYGROPAK MODEL HA 

1040 G.1040 



PROC INITO 


}* *XX *K X** X XX****HXX**K**KKH* * U*M*XXKK 

* 

CARD A 


AO 

FIRSTSCREENO 

6ETKEYO 

IF KEY=2i THEM TYP=*B FI 
IF KEY=57 THEM TYP=*H FI 

UNTIL TYP=*B OR TYP=*H 
00 

00 

PRINT(“How Many itens do ») 
PRINT("you vant to sort") 
PRINTEC" "1 
PRINTEC" ") 

PRINTE("NiX = 999, MiniMUM = 18 

**) 

PRINTEC* ") 

PUTf*?) N=INPUTC() 

UNTIL N>9 ANO N<1886 
00 


OPEN(3,"0:NUM1880.RAN",4,8) 
;PEN(3,"0:NUN1888.SRT",4,8) 
F8R 1=1 TO N 
00 

A=INPUTC0(3) 

5(1) =A 

00 

CL05E(3) 


TIMER() 
RETURN 


; KKKXl H IMKMKM»KKKMMMKI f ltMKKKKltKltMMJtltKMKM 

« 

PR8C PRNTSO ; ri;lfri«ad<lia 

; MMKKKNKMKMMKMKMKI t l l l l NKKKKNKKKM N NKKKNMK 
# 

CARO TEMP 

GETKEYO 

FOR 1=1 TO N 
00 


SORT ACTION 

IF KEY=28 THEN EXIT FI 

PRINT(">") 

TEMP=5(I) 

PRINTCE(TEMP) 

80 

RETURN 


‘N MKMKMMMK S KVMMMMMMi H IXMMKKMIlMMlIKKltKMKX 

* 

PROC MAINO 
* 

00 

INITO 

IF TYP=*B THEN BUBBLE() FI 
IF TYP=*H THEN HEAPO FI 

TIMERO 
POKE(752,1) 

PRINTE(" ") 

PRINTEC* Prtss any key to see list") 

printec* Press ESC to exit") 

PRNTSO 

IF KEY=28 THEN EXIT FI 


00 

RETURN 


PROOFER IN LOGO 


TO MAIN.PROC 
MAKE "LIST RL 

IF ( FIRST JLIST ) = "TO (MAKE "TITLE 
FIRST BF :LIST MAKE "INPUTS BF BF :LI5 
T) 

IF (FIRST :LI5T ) = **EN0 [FINISH.BP ST 
OP) 

IF NOT (FIRST JLIST ) = "TO (MAKE "INS 

TRUCTI8NS LPUT JLIST :INSTRUCTIONS] 

MAKE "SUM5LI5T SE JSUH5LI5T AOOSUMS CH 

KLINE :LIST 

TYPE £>) MAIN.PROC 

ENO 


TO CHKLINE JUST 

IF EMPTYP JLIST COP £33 

IF LISTP FIRST ;LIST COP SE CHKLIN^ I 

RST JLIST CHKLINE BF -.LIST) 

OP SE CHKHRO FIRST JLI5T CHKLINE BF :L 

1ST 

ENO 

TO 0IGIT3 :NUMBER 

IF ( COUNT I NUMBER ) < 4 COP :NUMBER] 
OP ( MORO LAST BL BL {NUMBER LAST BL : 
NUMBER LAST :NUMBER ) 

ENO 

TO CHKSUM JNUMBER :COUNT 
OP :COUNT N :NUMBER 
ENO 

TO CHKHRO :M0R0 

IF EMPTYP :M0R0 COP 03 

OP 0IGIT3 SUM CHKSUM ASCII LAST JMORB 

COUNT JUORO CHKHRO BL :HORO 

ENO 

TO AOOSUMS JLIST 

IF EMPTYP JLIST COP 03 

OP 0IGIT3 SUN CHKSUM LAST JLIST COUNT 

JLIST AOOSUMS BL JLIST 

ENO 

TO FINISH.UP 

OEFINE I TITLE LIST {INPUTS JlNSTRf > 

NS 

MAKE THING "TITLE LIST AOOSUMS JSUMSLI 
ST JSUMSLIST 

CT TYPE (Any wore procedures to enter? 
3 

MAKE "LIST RC PR JLIST 
IF JLIST = »Y (LOGO.PROOF) 

PR C) type (Output to Printer?) 

HAKE "LIST RC PR JLIST 
IF JLIST = **Y CC0PY0N3 
ERN (TITLE LIST INSTRUCTIONS) 

ERN (INPUTS SUMSLIST3 

PR (3 PONS PR C) COPYOFF 

TYPE (Oo you vant to quit now?) 

MAKE "LIST RC PR ILIST 
IF JLIST = "N (LOGO.PROOF] 

ER (CHKHRO CHKSUM 0IGIT3) 

ER (CHKLINE AOOSUMS MAIN.PROC) 

ER (LOGO.PROOF FINISH.UP) 

ERNS RECYCLE 
ENO 

TO LOGO.PROOF 

HAKE "INSTRUCTIONS C) 

MAKE "SUMSLIST (3 

CT PR (Enter your procedure:) PR (3 


ii 



LSI! OATA 23,78,23,138,21,32,85,24 
1828 DATA 16?,«,lJ3,212,iJJ,n«,lM,2» 


FLOATING PT. 
FROM LAST MONTH 1 
BY BARKLEY 


PROOFER CQNT 

TYPE m HAIN.PROC 

EM 


_ START 

CT REPEAT 15 CPR £]J 
PR TITHE LOGO PROOFREADER}] 

PR Cl PR (] 

PR (By Dave Arlington] 

PR Cfor ATARI Explorer] 

REPEAT 10 CPR C33 

PR CHCPress any key to continue.il]] 
HAKE "LIST RC ER "START RECYCLE 
LOGO.PROOF 
END 

TO COPYON 
SETMRITE "P: 

END 

TO COPYOFF 
SETHRITE I] 

END 


SWITCH 2.5 


1030 DATA 133,215,165,152,133,213,102, 
16 

1040 DATA 32,115,24,165,216,133,213,16 
2 

1050 DATA 7,32,115,24,32,70,24,56 
1060 DATA 165,0,133,212,165,224,133,21 
3 

1070 DATA 160,0,162,3,177,212,72,32 
1000 DATA 85,24,104,145,212,32,70,24 
1050 DATA 200,200,241,230,213,202,16,2 
36 

1100 DATA 56,234,182,23,0,24,240,73 
1110 DATA 32,70,23,206,158,23,48,65 
1120 DATA 32,100,21,32,105,23,165,255 
1130 DATA 141,158,21,141,157,21,162,16 

1140 DATA 165,47,157,68,3,165,24,157 
1150 DATA 65,3,32,164,21,32,85,24 
1160 DATA 162,21,165,0,133,212,133,214 

1170 DATA 165,31,133,215,165,220,133,2 
13 

1180 DATA 32,115,24,32,70,24,165,0 
1150 DATA 141,157,21,141,158,21,76,146 


10 /^Floating Point Averages*/ 

20 /*first try with AceC f.p.*/ 

SO nain(] $( 

40 int i,ave; 

SO char *str,aC6],suMC6],nC6],Ml6]j 
50 atofC5UM,"0.0"] j 
70 for(i=0;i<15;+4i] $C 

30 putcharC:'J; 

35 getsCstrJ; 

90 atof(a,str); 

9100 fadd(a,suM,suM); 

8105 printfC" X5.3f K5.3f\n", 

a, sum); 

9110 $J 

1120 itof(i,n]; 

9130 fdiv(suM,n,n]; 

9140 ave=ftoi(MJ; 

9150 printfC" n: sum: ave:\n"); 
9160 printfC"Kd X5.2f X5.2f\n",i,5UM, 

ni; 

9170 getkeyCJ; 

$] 


10 REH Modification to DOS 2.5 to 

11 REH store DUP.SYS and KEM.SAV 

12 REM in the bank snitch RAH 

13 REH behind the OS ROM frtM $C000 
TEH to $F8ff 

REM 

16 REM This MOd for 64K XL'S only 

20 REH Adapted frOM ANALOG 824 by 

21 REH Robert Luce 


1200 DATA 25,15,24,35,24,32,05,24 
1218 DATA 165,0,133,214,133,212,165,22 
0 

1220 DATA 133,215,165,31,133,213,162,2 
1 

1230 DATA 208,18,58,24,146,24,32,115 
1240 DATA 24,32,70,24,206,157,21,76 
1250 DATA 152,32,32,102,24,80,165,112 
1260 DATA 141,14,212,169,10,141,14,210 


MEETING 


22 REH 

23 REH M K K MK MMMMKMMMMMMMMMMKMKMKKMMMM 

24 REH written by Alec Benson 6/85 

30 REH frOM gligiE Wa ADELAIDE Atari 

31 REH Club, Box 333, Norwood, 

33 REH Australia S.A. 5067 Aug '85 

34 REH < MXKS<MKMKMKMMMMMMKMKMK<K1CMKMX 
48 REH REPRINTED ACE Newsletter 

41 REH 3662 Vine Maple, Eugene, OR 
100 CX=8:DIM A$C335] 

105 ? :? "Reading Data...." 

110 FOR 1=1 TO 335 
120 READ A 
130 CK=CK+A 

140 A$CLENCA$J+i)=CHR$CAJ 
150 NEXT I 

160 IF CKO41072 THEN ? "ERROR IN DATA 
STATEHENTS-CHECK TYPING":END 
170 OPEN HI,8,0,"D:PATCH25.OBJ":PRINT 
Hi;A$;:CLOSE Hi 

100 ? :? ;? "D:PATCH25.OBJ CREATED:END 

n 

1000 DATA 255,255,231,20,233,20,32,152 


1270 DATA 56,120,165,0,141,14,212,141 
1200 DATA 14,210,173,1,211,41,254,76 
1250 DATA 107,24,173,1,211,5,1,141 
1300 DATA 1,211,56,234,234,234,234,32 
1310 DATA 156,25,56,160,0,177,214,145 
1320 DATA 212,200,208,245,238,213,230, 
215 

1330 DATA 202,208,242,56,234,234,234,2 

54 

1348 DATA 234,234,234,234,234,234,234, 
S3 

1350 DATA 25,105,25,32,85,24,165,0 
1360 DATA 133,212,133,214,165,25,133,2 
13 

1370 DATA 165,152,133,215,162,16,32,11 
9 

1380 DATA 24,165,216,133,215,162,7,32 
1350 DATA 115,24,32,70,24,56,234,234 
1400 DATA 234,234,234,234,234,234,234, 
234 

1410 DATA 234,234,45,31,53,31,170,174 
1420 DATA 181,216,284 
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LOGO PROOFREADER 

(Reprint: POKEY, August, 1985) 

With the introduction of the amazing new 520ST, Atari has achieved 
another first. The 520ST is the first inexpensive personal computer to 
be shipped with LOGO as the language of choice. This is a very exciting 
and innovative move. In the coming months, many interesting LOGO 
projects and programs will be published in the Atari Explorer. One side 
benefit to this is that many of these programs will run with only minor 
changes on the 400/800/XL/XE series of Atari computers equipped with 
the LOGO language. The LOGO proofreader is one of these programs. 

Almost all computer publications which feature type-in BASIC 
listings supply a proofreading program which checks your typing. The 
LOGO Proofreader serves exactly the same purpose for type-in LOGO 
listings. It provides an easy-to-use checksum for each procedure you 
enter into the workspace, saving a lot of debugging time. All future LOGO 
listings published in POKEY will have Proofreader checksums which you 
can use to check your typing. 

Using the Proofreader: Very carefully type the listing. (After all, 
you don't have the proofreader yet!) When using the 520ST to type in 
this listing I recommend clicking the LOGO text window to full screen. 
Then, before doing anything else, save your workspace to disk under the 
filename LPROOF. Later we'll show you how to use the Proofreader to 
check itself. 

To begin the program, type START. After a short title screen, you 
will be prompted to being entering a procedure. Just type it in as you 
normally would. The Proofreader checks each line as you type it. As an 
example we'll use probably the most famous LOGO procedure, SQUARE. 

Type this in: 

TO SQUARE :SIDE 

REPEAT 4 [FD :SIDE RT 90] 

END 

When you type END and press RETURN, the Proofreader will define 
the SQUARE procedure and ask if you have any more procedures to enter. 
In this example we'll reply N. After asking whether you also want output 
to the printer, the LOGO Proofreader will print the checksums for all the 
procedures you have entered. In this example the Proofreader will print- 
"MAKE "SQUARE [980 [590 695] ]" 

The first number in the checksum is ALWAYS the checksum for the 
entire procedure. In this case, 980. If the number matches, the procedure 
has been typed correctly and you need check no further. 

If, on the other hand, you get something like: "MAKE "SQUARE [970 
[590 690] ]" then you will have to check the following list of numbers 
to determine which line was typed incorrectly. In this case, the second 
line was typed incorrectly. Each number in the list corresponds to each 
line in the procedure, including the title line but excluding the END line. 
The LOGO Proofreader assumes you will always type the last line (END) 
in a procedure definition correctly. It is never included in the checksum 
values. 

After you have finished entering procedures and have determined 
where all your typing mistakes are, you will have two choices. You will 
be asked if you wish to quit now. If you answer N, you will be returned 
to the main program where you may either enter some more procedures 
or re-type the ones where you have made mistakes. If you answer Y to 
quitting the LOGO Proofreader will erase itself and all variables including 
the checksums, leaving only the procedures you have entered within the 
program. After correcting any mistakes using the LOGO editor, you can 
then save the entire workspace to disk. 

How it Works 

If all you are interested in is having the program work, you need read 
no further. The following information is intended for those who want 
to know some of the finer points of using list processing in LOGO. One 
important point which should be made is this: Yes, Virginia, it is possible 
to write utility and applications programs in LOGO. 

Solving a problem in LOGO can be easy if you approach it in the right 
way. Long before electron microscopes were invented, Greek 
philosophers discussed the existence of the atom. They theorized that 
if one took a piece of cloth and kept ripping it in half, that eventually 
you would get a piece so small that it could not be divided further. The 
language which LOGO is descended from, LISP, also refers to atoms. 
Here it is used to describe a piece of a program which cannot be broken 
down any further. From these small pieces we can construct a larger 
problem solving program. 

LOGO works much the same way. In the Proofreader program, the 
smallest procedure is CHKSUM, which outputs the ASCII value of a letter 
times its position in a word. CHKWRD adds these sums together to get 
a unique value for each word. For instance, CHKWRD "THE outputs 1 
times the ASCII value of T plus 2 times the ASCII value of H plus 3 times 
the ASCII value of E. If we know all the right letters are in the right places, 
then the word must be spelled correctly. 
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CHKLINE takes the list the user types in and breaks it up into tits 
individual words to apss on to CHKWRD. CHKLINE then outputs a list 
of all the checksums to ADDSUMS. If we know all + he words are spelled 
right and in the right places, then the line must be typed correctly. If 
all the lines are typed correctly and in the right place, then the procedure 
must be typed correctly. This is a very good example of solving a problem 
in LOGO. Take a very small problem (Is the letter in the right place?) and 
use it to build a foundation to solve a large problem (Is the procedure 
typed correctly?). 

The Proofreader also uses another popular LOGO technique called 
recursion, a LOGO can call any other procedure, even itself. Recursion 
is when a LOGO procedure calls itself to help solve a problem. There 
are generally two types of recursive calles. Tail recursion is where the 
very last line in a procedure is a call to itself. This is very similar to BASIC 
looping. The procedure keeps looping back to itself until some condition 
is met to stop it. In the procedure MAIN.PROC, it keeps going back for 
more lines from the user until they type END, at which time it calls the 
FINISH.UP procedure and stops. 

A more complicated type of recursion occurs in the procedure 
CHKLINE. Since CHKWRD can only take a word as its input, CHKLINE 
must break up a list into its individual words. But a list can contain other 
lists as well as words. We need a procedure which can break those lists 
inside lists into words. Sound familiar? That's the CHKLINE procedure! 
Therefore the second line of CHKL INE checks to see if the first element 
is yet another list. If it is, it calls itself to break up that list before it 
continues. This way, CHKLINE can take the most complicated of lists 
and break it into single words. 

The Proofreader uses other techniques which could take up a whole 
article by themselves. The use of Global vs. Local variables, for instance. 
The Proofreader uses global variables only in the main loops near top 
level where user input is needed. All other values are passed through 
the various procedures locally, where they only exist as long as the 
procedure is running. This way the program has to only erase a few global 
variables when it finishes up. 

I hope you find the LOGO Proofreader a valuable addition to your 
library, both as a useful utility and as a lesson in LOGO programming. 


WALDEN TEACHES C 

In this article I will talk about two C statements which are very 
powerful, yet difficult to understand, especially if you are used to Basic. 
Elsewhere in this issue is a program listing called STUDY.C which 
contains the examples I will refer to. 

The Basic FOR statement contains three parts: The initialization 
where the variable is assigned a value, the test where the variable is 
checked against some parameter, and the STEP value to increase the 
variable. The C for( statement also has 3 parts, but unlike Basic, they 
are totally unrelated to each other. 

The variable you initialize does not have have to be either the variable 
you test or the one you change. Here's how C handles the 3 parts. The 
first part is used to initalize any number of variables, all separated by 
commas. The end of the first section is set off by a semi-colon. The 
variables will all be initialized at the beginning of the loop. 

The next section is the test. You may test anything; there is no 
requirement for the test have anything to do with the initialization. If 
the test is true, then control will be passed to the body of the loop, 
otherwise control jumps out of the loop. The third section is performed 
at the end of the loop. In this section you can assign values, change 
values, or even leave it blank and do nothing. The variables you change 
do not have to have anything to do with either of the first two sections. 
Take a look at the for( examples given in STUDY.C 

The second statement for which there is no counterpart in Basic, 
is the ?: statement. Let's say you wanted to assign Z the value of A or 
B, whichever is greater. If A is greater than B then Z will equal A, else 
Z will equal B. Normally this requires two statements. The ?: statement 
allows you to test a value and give one of two results depending on 
whether the test value is true or false (I know, it sounds confusing - take 
a look at the example in STUDY.C). Here's another example. Say you want 
to print how many players there are in a game. If only one, then the word 
"players” should be singular, otherwise it should have the ending "s”. 
By using the ?: statement we can print out the ending "s" only if there 
is more than one player. You could also use the same routine for printing 
out verbs like "is" and "are" dependent on how many objects you are 
describing. Look at STUDY.C for examples. 

These two statements provide two examples of how C provides 
shortcuts for commonly used program statements. It takes a while to 
get used to them, but once you do you may end up wondering how you 
lived without them. 


— Ralph Walden 



MENU.C 

MENU.C will list a menu of all of the ".COM" programs on a disk, 
and allow you to run any of them by pressing the corresponding letter. 
A good use for this program is to end your C programs by chaining to 
MENU.COM. This way, the user can always have a menu of programs 
to choose from. The only disadvantage is that you cannot pass 
parameters to the program being run by MENU. 

The listing of the program has been modified somewhat to improve 
readability. For example, the first char declaration should be typed in as 
one line rather than the two shown. There are several similar lines which 
are printed as two lines, but which you can type in as one line. The line 
which searches for CC.COM by using the indexO function can be followed 
with any number of "else if(" lines to search for and ignore any COM 
files you don't want listed in the menu. 

For those of you who are fairly new to C, I draw your attention to 
a couple of interesting lines. Look at the for( loop underneath the "Print 
all filenames" comment. This for( loop initializes, checks, and updates 
two variables in a single statement. Imagine doing this in Basic! Also 
look at the while( statement 4 lines from the bottom. With one statement 
we input a character from the keyboard, change it to uppercase if needed, 
make sure it's alphabetic and that it's a viable menu option, and keep 
trying until we get a correct response. This is a good example of C's ability 
to provide programming "shortcuts"; replacing with one line what 
normally takes several lines. 

— Ralph Walden 

A C' NOTE 

For the past few weeks I've used two new "C"-Language products 
which look very nice. Although I haven't yet had time to do a complete 
review, some ACE members might want to look at these new "C" tools 
for themselves while I do my homework for a review. 

Let's look first at "C Self-Study Guide" by Jack Purdum (1985, Que 
Publishing, Inc., 7999 Knue Rd., Indianapolis, IN, 46250 $16.95). This 
250 page soft-bound volume is by far the most cost-effective way I've 
found for learning to use C. Other C books give you rules, syntax, and 
finished examples of C programming. With my slow-motion brain, all of 
this seems to produce one "Gotcha!" after another." What, you didn't 
notice that comma . . . extra space . . . missing quote? Hah!" 

Purdum does it MY way, instead. Lots of examples of C functions, 
many WITH ERRORS . . . "What's wrong with this line?" (You're told 
what page holds the answer). That's the way I spend most of my 
)rogramming time, and the way I really learn — by falling down a lot, 
and getting up. Not by watching others walk, or run. Purdum also has 
a super idea which is new to me: He puts the questions for each chapter 
IN FRONT where you can see how much you already know — or don't 
know - about Operators, Variables, Loops, Pointers, etc. This makes it 
simple to skip over familiar ground, and gives me new incentive to identify 
and fill gaps in my retained knowledge, not merely review the text I just 
finished reading. 

Now a second offering: DVC/65, the best-yet version of C for Atari. 
It s by Ralph Walden, the author of ACE-C. This brand-new Freeware 
product is much more than just the C Development Compiler it claims 
to be. It's a whole programming system carefully crafted for the Atari, 
with its own special-purpose DOS, a superb editor, the most complete 
version of C for Atari which I have yet seen, and, best of all perhaps, 
62 pages of very usable documentation. So far it has worked smoothly 
and easily, with convenient editing, fast assemblies, nearly automatic 
linking and respectable running times. 

You get the normal C I/O functions, including scanf() — at last! — 
as well as printfO; special Atari floating point functions; an assembly 
language interface; great graphics utilities; RAMdisk for XE and Mosaic 
Board owners. Plus lots of sample C source programs (20 +), demos, 
and special goodies for you MAC-65 and ACTION fans! 

DVC/65 is issued as Freeware, which means the disk can be freely 
copied and distributed, while the documentation is coyrighted and 
available only from the author, for $35 (write to Ralph E. Walden, 1821 
Jefferson, Eugene, OR 97402). 

So there you have it: early notice about two promising additions to 
your Atari C library. Next time I'll tell you what I learn about both, warts 
and a r . C ya then! 

— Dick Barkley 


RESCUE MISSION 

by Geoffrey Thompson 

THE GAME: 

You are flying an unarmed helicopter carrying vital medical supples 
through lengthy caverns in order to reach your agents who have been 
wounded behind enemy lines. The caverns are well protected with anti¬ 
aircraft batteries, space mines, rockets and lasers so the mission is 
dangerous and difficult and the caverns are lengthy. The only aid you 
have apart from your own skill is a radar scanner at the top of the screen 
to show your position in the cavern. The joystick controls the helicopter 
in any direction and you have three helicopters, each with a limited supply 
of fuel. The space bar will pause the game at any point. 

TYPING IT IN: 

Type as listed. Make sure you save a copy of the program before you 
RUN it. Before you type Run, ensure you have a formatted disk in drive 
1. The program will check the data line by line and write a file to disk 
with the filename 'D:RESCUE.DAT' and then ask you if you are ready 
to run. A 'Y' will begin the game. To RUN the program subsequently, type 
in the short program and save with whatever filename you wish on the 
same disk as 'D:RESCUE.DAT'. You can then RUN the program by typing 
RUN"D:(your filename)". 

— Nora Young 



DOS 2.5XL 

(Reprint: Feedback, August, 1985, Adelaide, Australia) 

When used with the XE computers, DOS 2.5 can make use of the 
extra memory available as a ramdisk. In addition, both DUP.SYS and 
MEM.SAV are stored on this ramdisk which allows instant access to DOS 
and automatic saving of any program in memory without a (normal) disk 
access. 

This latter feature can be implemented on XL machines with 64k 
of memory by using the RAM behind the operating system ROMs. A 
program to do this with DOS 2.0S was published in number 24 of Analog 
magazine. The program presented here makes the same modification to 
DOS 2.5. 

Type in the program and save it. Now RUN the program and, if you 
have typed it in correctly, you will get the message that the file 
PATCH25.0BJ has been created. If you did not boot your system using 
DOS 2.5, do so now. go to the DOS menu and select option L. In response 
to the file name request, type PATCH25.0BJ. 

To save the patched version of DOS 2.5 use the H option. Now reboot 
your system using the disk containing your patched version of DOS and 
away you go. 

— Alec Benson 
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DIGITAL LOGIC 


(Reprint: BRACE, July, 1985) 

Looking for something to do with your 520ST when . . . LOGO is 
the only language installed? Well, if you enjoy tinkering with electronics 
as I do, then you might enjoy this neat little project: A low cost, primitive 
(but effective) software circuit simulator. Due to time (and space) 
considerations this article will only outline the procedure and give one 
or two short examples. To expand this idea into a full-blown program 
is going to require a little ingenuity and work on your part, but the results 
should be worth it. 

First of all, I should probably discuss just what a circuit simulator 
does. Loosely defined, it is a body of software which uses math (in this 
case boolean logic) to predict how an electronic circuit will behave. It 
is driven by inputs (let's see, if we apply a logic one here and a logic 
zero here . . . ) and calculates the outputs of the circuit ( . . . what 
should we read at this output pin?). With a well-designed simulator you 
can spend afew minutes with your Atari finding out if a new circuit design 
is going to work the way you think it will instead of hours wire-wrapping, 
perhaps in vain. Well, ok. There might be a slight exaggeration there. 
Anyway, now that you have an idea of what a simulator does, let's delve 
into how it works. 

LOGO turns out to be a perfect language with which to implement 
a logic simulator because of the unique way in which it handles boolean 
logic. Where almost all other languages use zero to equal false and any 
number other than zero equals true, LOGO doesn't use numbers at all. 
TRUE and FALSE are special inputs used only with the boolean operators 
in LOGO. In addition, LOGO has what are known as predicates. These 
are special primitives, or procedures, which test for a specific condition. 
If the condition exists, a predicate will output TRUE, if not it will output 
FALSE. There are two other features of LOGO which make it attractive 
for this kind of application: It is procedural and recursive. We won't run 
into the advantages of recursion in the short examples I'll give here, but 
you'll soon see how the procedural nature of LOGO makes things “easy 
as pie.” 

The key to understanding how this simulator works is knowing what 
goes on inside an integrated circuit. Let's take an LS7408 chip for 
example. . . . The internal logic of this chip ... is very simple. There 
are eight input pins arranged as four pairs. Each pair of input pins goes 
directly to he corresponding inputs of an AND gate. The output of each 
AND gate goes directly to one of the output pins of the chip. This may 
all seem extremely obvious to an experienced hobbyist, but it is 
necessary to look at each chip in this simplistic way. Each output pin 
must be defined in terms of the operation performed on the input pins. 
So, the output of pin three, for example, can be defined as being the result 
of pin one ANDed with pin two. In LOGO the definition of pin three can 
be something like this: 

TO LS7408.3 

OUTPUT ( AND LS7408.1 LS7408.2 ) 

END 

This is a procedure. When called, LS7408.3 will output the result 
of LS7408.1 ANDed with LS7408.2, which will also have been defined 
as procedures. In the above definition the OUTPUT command directs 
LOGO to return either a TRUE or FALSE to the calling procedure, 
depending upon the result of the AND operation. In accordance with 
LOGO syntax, the word AND comes first, followed by a list of its inputs. 
This is another advantage of LOGO: A boolean operation can have any 
number of inputs — not just two. The parentheses were optional in this 
instance. I just put them there for clarity. 

Having defined output pin three in terms of its inputs, we can now 
try it out to see if it works. First, however, we'll need three more small 
procedures to tie up loose ends: 

TO LS7408.1 
OUTPUT TRUE 
END 

TO LS7408.2 
OUTPUT FALSE 
END 

TO TEST 
PRINT LS7408.3 
END 

The first two procedures define the inputs to LS7408.3. The last 
one is necessary in order to both call it and to do something with the 
output. Simply type TEST at the LOGO prompt, and the word FALSE will 
be returned to you. You can try EDITing LS7408.1 and LS7408.2, 
changing the inputs to verify that everything workds properly. It will. In 
the above example, TRUE (or logic one) ANDed with FALSE (logic zero) 
should, and does return a FALSE. Neat, huh? Are the old cogs turning 
upstairs? Beginning to see how this can be useful? Well, let's go on, shall 
we? 


Ok. So we have seen how to simulate a simple AND gate, but I still 
haven't shown why LOGO is so superior to other languages for something 
like this. You're probably saying to yourself, "Sure, it's nifty, but I could 
have written a two line BASIC program to do the same thing." True, but 
this is only one gate. Where LOGO really shines is in the combination " 
of lots of gates. Let's take the example where the output pins three, six 
and eight of our LS7408 are all feeding inputs of a NAND gate in an 
LS7410 chip. Now what do we do? 

Well, first off, we should define the other output pins of the LS7408: 

TO LS7408.6 

OUTPUT ( AND LS7408.4 LS7408.5 ) 

END 

TO LS7408.8 

OUTPUT ( AND LS7408.9 LS7408.10 ) 

END 

Now to define the output of the NAND gate in the LS7410: 

TO LS7410.8 

OUTPUT ( AND LS7410.3 LS7410.4 LS7410.5 ) 

END 

EDIT TEST to reflect the new circuit. 

TO TEST 
PRINT LS7410.6 
END 

Define the inputs to the 7408: 

TO LS7408.4 
OUTPUT TRUE 
END 

TO LS7408.5 
OUTPUT TRUE 
END 

TO LS7408.9 
OUTPUT TRUE 
END 

TO LS7408.10 
OUTPUT TRUE 
END 

So, is that it? Whoops! We forgot to tell the software how the two 
chips are interconnected. Let's see, we could write a bunch of procedures 
defining the inputs of the LS7410 to be equal to the respective outputs 
of the LS7408 chip. Seems like a lot of work, huh? But wait! LOGO is 
a procedural language. Since the outputs of the LS7408 have been 
defined as procedures, and since procddures can be used as inputs to 
boolean operations in LOGO, all we have to do is a little EDITing of ou r 
definition of the output of the LS7410: 

TO LS7410.6 , ’ — 

OUTPUT NOT ( AND LS7408.3 LS7408.6 LS7408.8 ) 

END 

Now look at that. No, really. Sit back a second and look at what we 
just did. We defined the input pins of our triple input NAND gate to be 
the output pins of our three AND gates. Just to make sure the 
significance of this has sunk in, I'll outline what happens when you type 
TEST. 

LOGO first tries to print LS7410.6 but finds it has unresolved inputs. 
The first of these inputs is LS7408.3. So LOGO has to see what the 
output of LS7408.3 is. Sure enough, the inputs to this procedure are 
also unresolved. So, once again, LOGO traces back another step to the 
inputs of LS7408.3 until it either finds another procedure with unresolved 
inputs or a TRUE or FALSE. It will then keep at this until all of the inputs 
to LS7410.6 are resolved and it can print out the result (which will be 
TRUE, of course — that one lousy little FALSE input at LS7408.2 screws 
us up. Change it to TRUE and see what happens). This all occurs in a 
split second, and all we see is the answer, which is all we really want. 
Now where's your little two line BASIC program? You can get BASIC to 
do this, of course, but not so easily or so elegantly. 

Well, that's about all I'll say on the subject right now. Obviously there 
is more we could say. Entire circuits can be built using the guidelines 
laid out here. More complex chips, such as flip-flops, shift registers, etc., 
will require a little ingenuity to properly simulate. Just remember to define 
the output in terms of what happens to the inputs. Another area which 
needs attention is the inputs to the circuit. A procedure which takes 
patterns of ones and zeros and translates them into the TRUEs and 
FALSEs of the proper inputs is much preferred. But the thrust of this 
article is to get you started, and later, when you've mastered the 
concepts and programmed in all of those refinements, you can give me 
a call and I'll be right over with a blank disk. . . 

— Jeff Griffen 
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Atari Computer Enthusiasts 

A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to Atari Corp. We are a group 
interested in educating our members in the use of the Atari Computer 
and in giving the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our members. 

Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $14 a year for U.S., and $24 a year Overseas Airmail 
and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 

** President— Dick Barkley, 2907 Wingate, Eugene, OR 97405 

503-344-5843 

Vice Pres- Larry Gold, 1927 McLean Blvd., Eugene, Or 97405 

503-686-1490 

8-bit Librarian- Chuck & Jody Ross, 2222 Ironwood, Eugene 97401 

(503)342-4133 

ST Librarian— Jim Bumpas, 4405 Dillard Rd., Eugene OR 97405 

503-484-4746 

Editors— Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 

503-344-6193 

Jim Bumpas, 4405 Dillard Rd., Eugene, OR 97405 

503-484-4746 

E.R.A.C.E. (Education SIG Editor)- Nora Young, 105 Hansen Lane, 

Eugene, OR 97404 / 503-688-1458 
Send 50c stamps or coin ($1 overseas) to the Ness' for the new, 
updated ACE Library List —new in May 85! 

Bulletin Board 
(503) 343-4352 

On line 24 hours a day, except for servicing and updating. Consists 
of an 800 XL, 2 double-density double sided disk drives and 2 double¬ 
sided, double-density, 80-track disk drives, an Epson MX80 printer, a 
1200 baud Prentice P212ST modem, running the Mindlink Bulletin Board 
software distributed by SofMark. 

Best of ACE books 

Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 

Volume 2 covers July 1982 to June 1983 

Only $12 each ($2 extra for Airmail). Available only from: 

George Suetsugu 
45-602 Apuapu St 
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TYPESETTING 

FROM YOUR COMPUTER 


ATARI OWNERS: If you. have a modem, text editor, and com¬ 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on liner 
And it s easy to encode your copy with the few typesetting 
commands you need. ^ 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 



30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


SortFinder Index 

A composite index of Atari related articles in four popular computer 
periodicals, including ACE. Volume Icovers April, 1981 to June 1983 
Volume 2 covers July, 1983 to December, 1985. Only $6 per printed copy 
or $11 per disk copy for ACE members: 

Jim Carr 2660 S.W. DeArmond 
Corvallis, OR 97333 





